home *** CD-ROM | disk | FTP | other *** search
/ GFX Sensations 1 / Graphic Sensations - Volume 1.iso / com_net / mail / thor / thor.lha / rexx / version.thor < prev   
Encoding:
Text File  |  1994-08-06  |  1.1 KB  |  40 lines
  1. /*
  2. **  version.thor - demonstrates the VERSION function (new for THOR 1.22)
  3. **
  4. **  Will return 0.
  5. **
  6. **    Template:
  7. **
  8. **    STEM/A
  9. **
  10. **    STEM is the stem variable THOR will but the result into, and it must be
  11. **    supplied or this command will fail.  The stem variable must be in 
  12. **    uppercase.
  13. **  The following stem-varibles will be made:
  14. **
  15. **  <stem>.THOR    -    Will give the release version of THOR (ie. 1.22)
  16. **  <stem>.FSE     -    Will give the version of the Internal Full Screen
  17. **                      Editor in THOR.
  18. **  <stem>.BBSREAD -    Will give the version of the bbsread.library
  19. **                      currently loaded in memory.
  20. **  <stem>.REQTOOLS -   Will give the version of the reqtools.library
  21. **                      currently in use by THOR.
  22. **
  23. **  Use this function to get the version of THOR running if you intend
  24. **  to use some of the new ARexx commands new to 1.22 of THOR. 
  25. **  The version output will be the same as in the About-requester in THOR.
  26. **
  27. */
  28.  
  29. address "THOR.01"
  30.  
  31. VERSION stem VER
  32.  
  33. say "THOR             : " VER.THOR
  34. say "bbsread.library  : " VER.BBSREAD
  35. say "FSE              : " VER.FSE
  36. say "reqtools.library : " VER.REQTOOLS
  37.  
  38. exit
  39.  
  40.